home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr01
/
jock.zip
/
TOTDEM11.ZIP
/
DEMIO13.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-02-11
|
820b
|
40 lines
program DemoIOThirteen;
{demIO13 - single ArrayIOOBJ input}
Uses DOS, CRT,
totFAST, totIO1, totIO2;
Var
MyList: array[1..10] of string[20];
ListField: ArrayIOOBJ;
procedure FillArray;
{}
begin
MyList[1] := 'Monitor';
MyList[2] := 'Keyboard';
MyList[3] := 'Mouse';
MyList[4] := 'Light Pen';
MyList[5] := 'Microphone';
MyList[6] := 'LCD O/H Panel';
MyList[7] := 'Modem';
MyList[8] := 'Printer';
MyList[9] := 'CD Rom';
MyList[10] := 'Toolkit';
end; {FillArray}
begin
ClrScr;
FillArray;
with ListField do
begin
Init(35,5,15,6,'Peripherals');
AssignList(MyList,10,20);
Activate;
gotoxy(1,20);
writeln('You chose item: ',GetValue,' - ',MyList[GetValue]);
Done;
end;
end.